home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1994 December / PSL Monthly Shareware CD-ROM (Public Software Library)(December 1994).bin / prgmming / dos / asm / strutest.asm < prev    next >
Assembly Source File  |  1983-09-10  |  981b  |  81 lines
  1. title    MACRO Test Program
  2. page 62,132
  3. include struct.mac
  4. data    segment
  5. num    dd    1843200
  6.     assume    cs:data
  7.     @save    <ax,bx,si,di>
  8. lab:    mov    ax,bx
  9.     .repeat
  10.       mov al,ah
  11.     .until loop
  12.  
  13.     .repeat
  14.       mov al,cl
  15.     .until al l 34
  16.  
  17.     .repeat
  18.       add al,1
  19.     .until al e 56 long
  20.  
  21.     .dowhl si e 5 long
  22.       dec si
  23.     .enddo
  24.  
  25.     .if    pe
  26.       mov ax,1
  27.     .else
  28.       mov ax,2
  29.       .if    z,long
  30.         mov ax,3
  31.       .else
  32.         mov ax,4
  33.       .endif
  34.     .endif
  35.  
  36.     .dowhl ax e 1
  37.       dec ax
  38.     .enddo
  39.  
  40.     .if <word ptr num> e 23h
  41.       mov word ptr num,40h
  42.     .endif
  43.  
  44.     .if    ax,e,bx
  45.       mov ax,4
  46.     .endif
  47.     .if ax l 1
  48.       mov ax,1
  49.     .else
  50.       mov ax,2
  51.     .endif
  52.     .if cx l 0
  53.       inc cx
  54.     .else
  55.       dec cx
  56.     .endif
  57.     .if ax l 0
  58.       .if bx l 0
  59.         .if cx l 0
  60.           dec cx
  61.         .else
  62.           inc cx
  63.         .endif
  64.         mov bx,1
  65.       .else
  66.         mov bx,2
  67.       .endif
  68.       mov ax,1
  69.     .else
  70.       mov ax,2
  71.     .endif
  72.     .if ax g cx long
  73.       add ax,1
  74.     .else long
  75.       add ax,2
  76.     .endif
  77.     @restore
  78.     check$
  79. data    ends
  80.     end
  81.